home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / search.dxr / 00055_ClearAll Button.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  676 b   |  24 lines
  1. property ancestor
  2.  
  3. on new me, buttonName, castName, theChannel, theStageLoc, descendant
  4.   if objectp(descendant) then
  5.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, descendant)
  6.   else
  7.     ancestor = new(script("generic button"), buttonName, castName, theChannel, theStageLoc, me)
  8.   end if
  9.   return me
  10. end
  11.  
  12. on performFunction me
  13.   global gSearchObj
  14.   menuBankObj = getMenuBankObj(gSearchObj)
  15.   clearBank(menuBankObj, 3)
  16.   hideBank(menuBankObj, 3)
  17.   clearBank(menuBankObj, 2)
  18.   hideBank(menuBankObj, 2)
  19.   clearBank(menuBankObj, 1)
  20.   criteriaObj = getMenuObj(menuBankObj, 1, #criteria)
  21.   enable(criteriaObj)
  22.   expand(criteriaObj)
  23. end
  24.